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<html> 
<head> 

<title>Lucky Cycle</title> 
</head> 

<body> 
<center> 

<font face=verdana size=3><b>Lucky Cycle</bx/f ontxb> 
<form action= "result . asp" method=post> 

<!-- Display of an Error Message, followed by the initialisation of 
this Error Message --> 
<brxfont face=verdana size=2> 

Concept invented and registered by Jean-Francois Moyersoen 
<p>  </p> 

<table bgcolor="#E0E0E0" border=l cellpadding=2 0 width= "4"6l " > 
<trxtd> 

<font face=verdana size=2 color=redxi><% = 
Session ( "error_message" ) %> 

<% Session { "error_mes sage" ) = " " %> 

<table width="419"> 
<tr> 

<td colspan=2xf ont face=verdana size=2xb>Selected 
Algorithm : </bx/f ont ></ td> 



<td align=right width="162"> 

- - <input ~type=radio name= M algorithm"-value="l" <% If 

Session ( "algorithm" ) = "1" then response . write ( " checked ") %>></td> 

<td width="245 " xf ont face=verdana size=2>The 
regular cycle</f ont ></ td> 



<td align=right width= " 162 " > 
<input type=radio name=" algorithm" value="2" <% If 
Session ("algorithm") = "2" then response . write ( " checked ") %>></td> 

<td width="245 "><f ont face=verdana size=2>The 
constant probability</f ont ></td> 



<td align=right width="162"> 
<input type=radio name= "algorithm" value="3" <% If 
Session ( "algorithm" ) = "3" then response . write ( " checked ") %>x/td> 

<td width="24 5 "xf ont face=verdana size=2>The 
pre-defined list</f ontx/td> 



<td align=right width=" 162 " > 
<input type=radio name=" algorithm" value="4" <% If 
Session ( "algorithm" ) = "4" then response .write ( " checked " ) %>x/td> 

<td width="245"xf ont face=verdana size=2>The 
dynamic probability</f ontx/ td> 



</tr> 
<tr> 



</tr> 
<tr> 



</tr> 
<tr> 



</tr> 
<tr> 



Fig. 3 





</tr> 
<tr> 

<td colspan=2>  </td> 

</tr> 
<tr> 

<td colspan=2xf ont face=verdana 



size=2xb>Parameters : </bx/f ontx/td> 



<td width*" 162" ><f ont face=verdana 
size=2 >Cycle</f ont x/td> 

<td width="245 " xf ont face=verdana size=2>n= 



<input type=text name="n" maxlength=3 size=3 



value="<%= Session ( "n" ) %> " x/f ontx/td> 



<td width= ,t 162"><f ont face=verdana size = 2 >Number 
of purchases </fontx/td> 

<td width="245 " ><f ont face=verdana size=2>p= 



< input maxlength=4 type = text name="pmax" size=3 



value = "<%= Session ( "pmax" ) %>"></ f ontx/td> 



</tr> 
<tr> 

<td colspan=2>  </td> 

</tr> 
<tr> 

<td colspan=2 align=centerxinput type=submit 



</i></ f ont ></tdx/tr> 

</ table> 

</ f ontx/ f orm> 

< /b></ cent erx /body > 

</html> 



</tr> 
<tr> 



</tr> 
<tr> 



value=" Simulation" x/td> 
</tr> 
</table> 
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<!-- #include f ile="algorithm . inc" --> 
<% 

' ## Input of the form data if the form is not empty 
• ## If this page is referred to by a page other than 
default. asp, this form does not exist 

' ## and the instruction bloc will not be executed 
If Request .form ("n") <> " " or Request . Form ( "pmax" ) <> or 
Request . Form ( "algorithm" ) <> " " Then 

Session ("n") = Trim (Request . Form ( "n" ) ) 

Session ( "pmax" ) = Trim (Request . Form ( "pmax" ) ) 

Session ( "algorithm" ) = Trim (Request . Form ( "algorithm" ) ) 

End If 

• ## Verification of the selected algorithm 

If Session ( "algorithm" ) <> "l" and Session ( "algorithm" ) <> "2" 
and Session ( "algorithm" ) <> "3" _ 

and Session ( "algorithm" ) <> "4" Then Return_Error ("The 
algorithm is not correct") 

'## Verification if the value N has been entered 
If Session ( "n" ) = "" then Return_Error ( 11 N is empty") 
If not Isnumeric (Session ( "n" ) ) then Return_Error ( "N is not a 
number" ) 

If Cstr (CLng (Session ( "n" )) ) <> Session ("n") then 
Return_Error ( "N is not a whole number") 

If CLng (Session ( "n" ) ) <= 0 Then Return_Error ( "N must be a 
positive number") 

<## Verification of the entered Pmax value 

If Session ("pmax") = " " then Return_Error ( "Pmax is empty") 

If not Isnumeric (Session ( "pmax" ) ) then Return__Error ( "Pmax is 
not a number" ) 

If Cstr (CLng (Session ("pmax") ) ) <> Session ( "pmax" ) then 
Return_Error ( "Pmax is not a whole number") 

If CLng (Session ("pmax") ) <= 0 Then Return_Error ( "Pmax must be a 
positive number") 

• ## Initialisation of the variables 
nb_articles__won = 0 
Randomize ( ) 



• ## Return function to the previous page if an error occurs 

' ## the Error Message is stored in the Session ( "Error_Message " ) 

Sub Return_Error (p_message) 

Session ( "Error_Mes sage" ) ~ p_message 

response .buff er = true 

response . clear 

response . redirect ( "default . asp" ) 
response . end 
End Sub 
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'## Display of the results table 
Sub Table () 



1 ## Selected algorithm by the 
Session ( "algorithm" ) variable 

Select Case Session ( "algorithm" ) 



' ## For each algorithm, the index of the ordered article 
p varies between 1 and Pmax 

1 ## For each value p, a function containing the Lucky 
Cycle algorithm is called 

* ## The parameters to be passed to these different 
functions are the cycle n stored in the Session ( "n" ) and p 

'## The result is False if the ordered product is not 
given for free and True if the product is a free gift 

* ## The cell function displays a cell of the table 

1 ## The parameters to be passed are the index p to be 
displayed inside the cell and 

•## the return value of the algorithm that will define 
the background color of the cell 

Case "1" : For p = 1 to Session ( "pmax" ) 

Cell p, 

algorithm_l (Session ( "n" ) , p) 

Next 

Case "2" : For p = 1 to Session ( "pmax" ) 

Cell p, 

algorithm_2 (Session ( "n" ) , p) 

Next 

Case "3" : For p = 1 to Session ( "pmax" ) 

Cell p, 

algorithm_3 (Session ( "n" ) , p) 

Next 

Case "4" : For p = 1 to Session ( "pmax" ) 

Cell p, 

algorithm_4 (Session ( "n" ) , p) 

-- - - --Next -— - 



End Select 



End Sub 

'## Display of the table cell with a result 
Sub Cell (index_p, reponse_algorithm) 

•## If the cell is the first in a serie of 20, the 
following end of line/begin of line tags will be inserted 
if index_j> mod 20 = 1 then 

response . write ( "</trxtr> " ) 

end if 



*## If the index corresponds to a free product, the 
background and text color will be defined 

if reponse_algorithm = true then 
bg_color = "red" 
text_color = "white" 

■ ## The number of articles won is incremented 
nb_articles_won = nb_articles_won + 1 

else 

' ## If the product is not offered for free, other colors 
will be used for the display 



Fig. 4A 



bg_color = "white" 
text_color = "black" 

end if 

» ## Display of a cell 

response . write ( "<td align=center bgcolor= • " & bg_color & 

II t > II & 

"<font color= ru & text_color & " 1 
face=verdana size=2>" & index_p & "</td>") 

End Sub 

%> 

<html> 
<head> 

<title>Lucky Cycle</title> 
</head> 

<body> 

<table cellspacing=l cellpadding=3 > 
<tr> 

<td colspan=20xf ont face=verdana size=2xb>Result 
Table</bx/fontx/td> 
<% Call Table %> 
</tr> 
<tr> 

<td colspan=20xbrxf ont face=verdana size=2xbx% = 
nb_articles_won %> articles on <%= Session ( "pmax" ) %> have been won 

<% i## if the number of articles is different from zero 
If nb_articles_ won <> 0 Then %> 

(1 on <%= FormatNumber (Session ("pmax") /nb_articles_won, 3) 

%>) 

<% End If %> 

<brx/b> Theoretical Cycle = <%= Session ("n") %> 
<brxbr> 

" ~<f orm ~action=resultvasp ~method=post> - ■■ _ ~~ 

<input type=button value="Back" 
one lick=" document . location. href = ' default . asp • " > 
<input type=submit value="New Simulation" > 
</f orm> 
</f ontx/td> 

</tr> 
</table> 

</body> 
</html> 
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<% 

Dim p_won ' ## Variable storing the index of the next article that 
will be offered free 

' ## (or that will be used as a reference for 
the dynamic probability algorithm) 

' ## All the procedures use the parameters cycle n (cycle_n) and the 
index p (index_p) 

' ## The result of each procedure is a boolean (True if the article is 
given free or False in the other situation) 

' ## The regular cycle 

•## is based on a fixed cycle : after (n-1) articles have been sold, 
the nth article is offered free 

'## Mathematically, it could be stated that the article is offered 
free when 

1 ## index_p Mod cycle_n = constant number between 0 and (n-1) 
'## For example : if index_p Mod cycle_n = 0 

Function Algorithm_l (cycle_n, index_j)) 
If index_p Mod cycle_n = 0 Then 
Algorithm_l = True 

Else 

Algorithm_l = False 

End If 
End Function 

■## The constant probability 

'## The cycle is based on a constant probability of l/n 

•## Mathematically, this cycle is characterized by the generation of 

a random number between 0 and (n-1) 

•## If this number equals any constant between 0 and (n-1), then the 
article is offered free 

>## For example, if the number is equal to 0 

Function Algorithm_2 (cycle_n, index_j?) 
nb_random = Int(cycle_n * Rnd) 
If nb_random = 0 Then 

Algorithm^ 2 = True 

Else 

Algorithm__2 = False 

End If 
End Function 
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* ## The pre-defined list 

•## This cycle is characterized by the creation of a predefined list 
with all the indexes p that will be future winners 

•## This list will be created on regular intervals, depending on the 
number of elements defined in the list 

•## This list must itself respect the cycle n and as a result the 
probability 1/n. 

' ## The algorithm underneath represents a special case in which the 
list contains only one element 

1 ## and is thus rebuild every time n articles have been ordered 

1 ## In this situation, this list is created by randomly assigning a 

number between index_p and index_p + cycle_n 

Function Algorithm_3 (cycle_n, index_p) 

*## Creation of the list if the article of the index p begins 
with a serie of n orders 

1 ## this means if the index_j? mod cycle_n = 1 

' ## Special case : if the cycle_n = 1 then no matter what the 
value is of p, 

• ## a list will be recreated (the article is the first of a 
serie of 1 order) , when p mod 1 <> 1 

If index^p mod cycle_n = 1 or cycle_n=l Then 
p_won = index_p + Int (cycle_n * Rnd) 

End If 

'## If the index p is found in the list p_won containing a 
single element, it will be offered free 
If index_j? = p_won Then 
Algorithm_3 = True 

Else 

Algorithm_3 = False 

End If 
End Function 

f ## The dynamic probability 

•## This cycle calculates the probability of an order with index p in 
function of a winning reference order, 

•## that in this case would correspond to a regular cycle (see the 
first algorithm) 

'## The probability is calculated in function of the indexjp and the 
winning reference order 

'## In the function underneath, we take as a reference list (n, 2*n, 
3*n, 4*n, . . . ) 

■## This list can contain any value as long as it respects itself the 
cycle n and the probability l/n 

Function Algorithm_4 (cycle_n, index_p) 

'## Initialisation during the first passage of p_won = cycle_n 
If index_ p = 1 Then 

p_won = cycle_n 

End If 

'## Calculation of the inverse of the probability 
'## In this case, we take (p_won - index_jp + 1) 
Inv_jprobability = (p_won - index__p + 1) 
'## Generation of a random number between 0 and 
(inv_probability - 1) 

nb_random = Int ( Inv_jprobability * Rnd) 

'## If the number is equal to 0, the product is offered free 
I f nb_random = 0 Then 

Algorithm_4 = True 
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'## The winning reference order takes the following index 
of the reference list 

p_won = CInt(p_won) + CInt (cycle_n) 

Else 

Algorithm_4 = False 

End If 
End Function 
%> 
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Result Table 

123456789] 
21 22 23 24 25 26 27 28 29 | 
41 42 43 44 45 46 47 48 49 

S articles on SO have won (1 on 10) 

Theoretical cycle = 10 



11 12 13 14 15 16 17 18 19 j 
31 32 33 34 35 36 37 38 39 | 
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Result Table 

1 2 3 4 5 6 7 B 9 10 11 12 13 14 Q 16 Q] 18 19 20 

21 g| 23 24 2S 26 27 28 29 30 31 32 33 34 35 ^ 37 38 39 40 

41 42 43 44 45 46 Q 48 J£] 50 

6 articles an 50 have won (1 on 8.33) 
Theoretical cycle = 10 
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Result Table 

1 2 3 4 5 6 7 Q 9 10 11 12 13 14 Q 16 17 18 19 20 

21 22 23 24 25 26 27 g3 29 30 31 32 33 34 35 36 37 38 Q 40 

41 42 43 44 45 Q 47 48 49 50 

5 articles on 50 have won (1 on 10) 

Theoretical cyc!e= 10 



Fig. 1 1 



t 



j*r Lucky Cycfe - Netscape 



BSE 




Lucky Cycle 



Concept invented and registered by Jean-Francois Moyersoen 



Selected algorithm \: ..;fj ?" Z^r ; - - ■ "V 

V* . -v > - j ^"^V J.- 1 The re gula r eye I e . •••• 
* ';V ; " J ~ ; v ; ' l ' * ' X- : ! i ™ a ?° n stant probability 

:; " : i - • ^ : ; \ "{i * ; .v '■; \@ The dynamic probability ' 1 
Parameters.-:"' 4f f> !< J V 

".cycle : l*i £*: '•; ; J ; ; -J.; '■- ■ - n=s J^«i : X; ■ * ' 

Number of purchases :- p= ; : \ ■■ « ' 



5-. 
.*« ■ 

I 



Fig. 12 



Lucky Cycle - Netscape 




Result Table 

1 Q 3 4 S Q 7 8 9 10 11 12 13 14 Q 16 17 18 19 20 
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Theoretical cycle = 10 
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